(xprintstr): Ensure GDB (> 6.6) prints symbol name

as strings and not character arrays.

diff --git a/src/.gdbinit b/src/.gdbinit
index 008305ca252d97daf5e0df054e78c72403bf19cb..5a940e667dc8151018b87254c1c3de83499f8484 100644 (file)
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -977,7 +977,7 @@ Print $ as a lisp object of any type.
 end
 
 define xprintstr
-  set $data = $arg0->data
+  set $data = (char *) $arg0->data
   output ($arg0->size > 1000) ? 0 : ($data[0])@($arg0->size_byte < 0 ? $arg0->size & ~gdb_array_mark_flag : $arg0->size_byte)
 end